home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / tools.tf < prev    next >
Text File  |  1995-08-12  |  694b  |  35 lines
  1. ;;;; Miscellaneous useful macros.
  2.  
  3. /~loaded tools.tf
  4. /require lisp.tf
  5.  
  6.  
  7. ; for compatibility
  8. /def -i shl = /sys %*
  9.  
  10.  
  11. ;;; Re-edit
  12. ; Stick an existing macro definition in the input window for editing.
  13. ; syntax:  /reedit <macroname>
  14.  
  15. /def -i reedit = /grab $(/cddr $(/list -i - %{L-@}))
  16.  
  17.  
  18. ;;; name - change your name (on a TinyMUD style mud)
  19. ; syntax:  /name [<name>]
  20.  
  21. /def -i name =\
  22.     @name me=%{1-${world_character}} ${world_password}
  23.  
  24.  
  25. ;;; getline - grab the nth line from history and stick it in the input buffer
  26. ; syntax:  /getline <n>
  27.  
  28. /def -i getline = /quote /grab #%{1}-%{1}
  29.  
  30.  
  31. ;;; xtitle - change the titlebar on an xterm.
  32. ; syntax:  /xtitle <text>
  33.  
  34. /def -i xtitle = /echo \033]2;%*\07
  35.